﻿Public Class BLcongelador
    Dim daCongeladores As New DAcongelador

    Public Function BuscarCongeladores()

        
        Dim lAuxCongeladores As System.Linq.IQueryable(Of congelador)

        lAuxCongeladores = daCongeladores.BuscarCongeladores()

        Return lAuxCongeladores

    End Function

    Public Function BuscarPisos(ByVal pCodCongelador As Integer)
        Dim lPisos As System.Linq.IQueryable(Of piso)

        lPisos = daCongeladores.BuscarPisos(pCodCongelador)

        Return lPisos

    End Function

    Public Function BuscarColumnas(ByVal pCodCongelador As Integer, ByVal pCodPiso As Integer)
        Dim lColumnas As System.Linq.IQueryable(Of columna)

        lColumnas = daCongeladores.BuscarColumnas(pCodCongelador, pCodPiso)

        Return lColumnas
    End Function

    Public Function BuscarCajas(ByVal pCodCongelador As Integer, ByVal pCodPiso As Integer, ByVal pCodCol As Integer)
        Dim lCajas As System.Linq.IQueryable(Of criobox)

        lCajas = daCongeladores.BuscarCajas(pCodCongelador, pCodPiso, pCodCol)

        Return lCajas

    End Function

    Public Function BuscarPosiciones(ByVal iCaja As Integer, ByRef nFil As Integer, ByRef nCol As Integer)


        Return daCongeladores.BuscarPosiciones(iCaja, nFil, nCol)

    End Function

End Class
